﻿Imports System.IO
Public Class Test

    Private _Tema As String
    Private _preguntas As New List(Of Pregunta)

    Public Property Tema As String
        Get
            Return _Tema
        End Get
        Set(value As String)
            _Tema = value
        End Set
    End Property

    Public Property Preguntas As List(Of Pregunta)
        Get
            Return _preguntas
        End Get
        Set(value As List(Of Pregunta))
            _preguntas = value
        End Set
    End Property

    '===================================================================================================='

    Public Function LeeTest(ByVal nombreTest As String)
        Dim fich As StreamReader
        Dim nuevoTest As New Test
        Dim datosStr As String
        If File.Exists(nombreTest & ".txt") Then
            fich = New StreamReader(nombreTest & ".txt")
            Dim nombre As String = nombreTest & ".txt"

            nuevoTest.Tema = nombreTest

            Try

                Do  ' Fin del fichero (boolean)
                    'fich.ReadLine()
                    Dim datos() As String
                    Dim linea As String

                    Dim nuevaPregunta As New Pregunta


                    linea = fich.ReadLine
                    datos = linea.Split("*")
                    nuevaPregunta.Enunciado = datos(0)
                    nuevaPregunta.Respuesta = datos(1)

                    nuevoTest.Preguntas.Add(nuevaPregunta)
                    datosStr = datos(0)



                Loop While datosStr.Length >= 1

            Catch ex As Exception
                Return "Error de ejecución"
                'nuevoTest.Preguntas.Clear() ' Instrucciones a ejecutar si se produce un error de ejecución 
            Finally

                fich.Close() ' Instrucciones a ejecutar al finalizar, con o sin errores de ejecución 
            End Try
            Return ""
        End If
        Return ""
    End Function
End Class
